home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / F / Frustration.cpt / Frustration / Frustration / card_3961.txt < prev    next >
Encoding:
Text File  |  1990-12-13  |  677 b   |  28 lines

  1. -- card: 3961 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 3222
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=277 top=258 right=280 bottom=377
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Panic Button
  20. ----- HyperTalk script -----
  21. on MouseEnter
  22.   global panicbuttonh,panicbuttonw
  23.   put Random(512-panicbuttonw)+panicbuttonw/2 into horiz
  24.   put Random(343-panicbuttonh)+panicbuttonh/2 into vert
  25.   play "Boing"
  26.   set Loc of button "Panic Button" of card 2 to horiz,vert
  27. end MouseEnter
  28.